home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_94-08_1994_-_de_Side_B.d64 / f.c. 2-basicdemo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  205 lines
  1. 0 print"[147][211]choener, besser, groesser:
  2. 1 [153]"ascatnstr$val(NULL) len(NULL)(NULL)(NULL)vallen(NULL)right$(NULL)(NULL) - 2 - ":[153]"von (NULL)ascha (NULL)eichert
  3. 2 print"[194]itte warten [211]ie, es wird nachgeladen.":poke53280,6:poke53281,14
  4. 9 rem fader collection 2 nachladen:
  5. 10 if a=0 then a=1:load"fader collect. 2",8,1
  6. 20 rem demobild nachladen:
  7. 30 sys34583,"?pic f.c. 2 bild"
  8. 40 rem
  9. 50 rem fader collection 2 demo
  10. 70 rem written and copyright 1994 by
  11. 80 rem        sascha reichert
  12. 90 rem
  13. 100 rem demohauptprogramm:
  14. 110 gosub 1000  :rem ersten anleitungs-
  15. 120 rem              text ausgeben.
  16. 130 gosub 9000  :rem demo aller effekte
  17. 140 rem              aufrufen.
  18. 150 gosub 2000  :rem der zweite text.
  19. 160 gosub 5000  :rem einige effekte
  20. 170 rem              mit anderen
  21. 180 rem              parametern zeigen.
  22. 190 gosub 9300  :rem alle effekte mit
  23. 200 rem              sound fx und
  24. 210 rem              unterschiedlichen
  25. 220 rem              farben
  26. 230 gosub 9500  :rem ende text ausgeben.
  27. 900 end
  28. 1000 print"[147][144][198]ader [195]ollection 2 [[196][197][205][207]]
  29. 1005 [153]"                    von (NULL)ascha (NULL)eichert
  30. 1010 print"----------------------------------------
  31. 1020 [153]"asc.len. 2 ist ein (NULL)aket von valffekten
  32. 1030 print"zum [197]in- und [193]usblenden von
  33. 1040 [153]"(NULL)ulticolourbitmaps im chr$rafikformat des
  34. 1050 print"[203][207][193][204][193]-[208]ainters.
  35. 1060 [153]"atnber auch chr$rafiken von anderen
  36. 1070 print"[205]alprogrammen, die das [203][207][193][204][193]-[198]ormat
  37. 1080 [153]"benutzen, koennen ein/ausgeblendet
  38. 1090 print"werden."
  39. 1095 gosub 9900
  40. 1100 print"[193]mica [208]aint kann z.[194]. auch im [203][207][193][204][193]-
  41. 1110 [153]"ascormat abspeichern, wobei uebrigens zur
  42. 1120 print"[214]erwendung mit [198].[195]. 2 keine [203]orrektur
  43. 1130 [153]"der (NULL)tartadresse auf $6000 noetig ist,
  44. 1140 print"[198].[195]. 2 besitzt eine eigene [204]aderoutine
  45. 1150 [153]"welche zur richtigen atndresse laedt.
  46. 1160 gosub 9900
  47. 1200 print"[196]ie [194]ilder werden nicht wie ueblich
  48. 1210 [153]"in eine leere peekitmap kopiert, was
  49. 1220 print"eine [208]latzverschwendung darstellt
  50. 1225 [153]"(wie uebrigens bei der ersten
  51. 1226 print"'[198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206]'),
  52. 1230 [153]"bei asc.len. 2 werden (NULL)prites ueber die
  53. 1240 print"[194]itmap gelegt. [196]iese [211]prites werden
  54. 1250 [153]"geloescht und beschrieben, wodurch der
  55. 1260 print"[197]indruck der [213]eberblendung entsteht.
  56. 1270 [141] 9900
  57. 1300 [153]"right$m folgenden werden alle 27 valffekte
  58. 1310 print"nacheinander aufgerufen, mit der
  59. 1320 [153]"chr$eschwindigkeit 1 und der (NULL)riginalfarbe
  60. 1330 print"des [196]emobildes, sowie [207][200][206][197] [211]ound[198][216],
  61. 1340 [153]"ueber die asc.len. 2 auch verfuegt.
  62. 1350 gosub 9900
  63. 1360 return
  64. 2000 print"[144][147][213]ebrigens:
  65. 2010 [153]"asc.len. 2 kann ein peekild aber auch mit
  66. 2020 print"jeder beliebigen [198]arbe einblenden,
  67. 2030 [153]"und mit einer anderen wieder ausblenden.
  68. 2040 gosub 9900
  69. 2100 print"[213][206][196] [206][213][206]: [196]er [193]ufruf von [198].[195]. 2
  70. 2110 [153]"(aus right$hren eigenen (NULL)rogrammen heraus)
  71. 2120 print"[193]ufruf in [194][193][211][201][195]:
  72. 2130 [153]"(NULL)uerst muss asc.len. 2 ins (NULL)am geholt
  73. 2140 print"werden, und zwar wie jedes
  74. 2150 [153]"atnssemblerprogramm:
  75. 2160 print"erste [218]eile [201]hres [194][193][211][201][195]programms:
  76. 2170 [153]"10 right$asc atn=0 (NULL)left$val(NULL) atn=1 : (NULL)(NULL)atnstr$"[199](34)"asc.len. 2"[199](34)",8,1"
  77. 2180 [141] 9900
  78. 2200 [153]"str$ann muss natuerlich noch die peekitmap
  79. 2210 print"geladen werden, wofuer [198].[195]. 2 einen
  80. 2220 [153]"besonderen peekefehl zur (NULL)erfuegung stellt:
  81. 2230 print"[211][217][211] 34583,"chr$(34)"<[206]ame des [203][207][193][204][193]-[208][201][195][211]>"chr$(34)
  82. 2240 print"[205]an kann das [194]ild natuerlich wie
  83. 2250 [153]"asc.len. 2 laden, aber wenn (NULL)ie spaeter in
  84. 2260 print"[201]hrem [208]rogramm noch ein anderes [194]ild
  85. 2270 [153]"benutzen wollen, geht dies nur
  86. 2280 print"mit dem [211][217][211] 34583-[194]efehl !!!"
  87. 2290 gosub 9900
  88. 2300 print"[213]m [198].[195]. 2 nun aufzurufen, ist die
  89. 2310 [153]"(NULL)ebergabe einiger (NULL)arameter noetig.
  90. 2320 print"[196]ie [213]ebergabe ist vor jedem [197][201][206]blenden
  91. 2330 [153]"neu vorzunehmen,
  92. 2340 print"wie folgt:
  93. 2350 [153]"(NULL)(NULL)(NULL)val 2,valinblendeffekt  (0-26)
  94. 2360 print"[208][207][203][197] 3,[193]usblendeffekt  (0-26)
  95. 2370 [153]"(NULL)(NULL)(NULL)val 4,chr$eschwindigkeit (0-15)
  96. 2380 print"[208][207][203][197] 5,[198]arbe (groesser 15:[207]riginalfarbe
  97. 2390 [153]"              0-15:ascarbe von 0-15)
  98. 2400 print"[208][207][203][197] 6,[211]ound [198][216] [193][206](=1) oder [193][213][211] (=0)
  99. 2410 [141] 9900
  100. 2500 [153]"str$as valin- und atnusblenden wird jeweils
  101. 2510 print"durch ein [211][217][211] 34580 ausgeloest,
  102. 2520 [153]"bzw. in atnssembler mit   mid$(NULL)(NULL) $8714
  103. 2530 print"([208]arameter-[213]ebergabe in [193]ssembler
  104. 2540 [153]" entsprechend peekatn(NULL)right$len)
  105. 2550 gosub 9900
  106. 2600 print"[213]nd jetzt noch einige [197]ffektdemos,
  107. 2610 [153]"mit verschiedenen valffekten,
  108. 2620 print"[199]eschwindigkeiten, [198]arben und mit [211]ound!
  109. 2630 [153]"(NULL)iel (NULL)pass beim (NULL)uschauen und valinbauen
  110. 2640 print"in eigene [208]rogramme !!!
  111. 2645 [141] 9900
  112. 2650 [153]"(NULL)(NULL)lenleft$ valright$(NULL) left$right$(NULL)(NULL)valright$(NULL) str$atn(NULL)(NULL):
  113. 2660 print"[194]ei [194]enutzung von [198].[195]. 2 darf [201]hr
  114. 2670 [153]"peekatn(NULL)right$lenprogramm maximal 53 blocks gross
  115. 2680 print"sein.
  116. 2690 [153]"atnchtung atnssemblerprogrammierer:
  117. 2700 print"[198].[195]. 2 sowie die [194]itmap belegen das
  118. 2710 [153]"(NULL)atn(NULL) von $4000 bis $9fff !!!
  119. 2720 gosub 9900
  120. 2730 return
  121. 5000 rem einige effekte als demo zeigen:
  122. 5010 poke 2,22 :rem effekt 22 einblend.
  123. 5020 poke 3,18 :rem effekt 18 ausblend.
  124. 5030 poke 4,15 :rem speed 15 (langsam)
  125. 5040 poke 5,13 :rem farbe 13 (hellgruen)
  126. 5050 poke 6,1  :rem sound fx an
  127. 5100 sys 34580 :rem aufruf (einblend.)
  128. 5150 gosub 9200:rem warteschleife
  129. 5200 poke 4,0  :rem speed 0 (schnell)
  130. 5210 poke 5,6  :rem farbe 6 (blau)
  131. 5300 sys 34580 :rem aufruf (ausblend.)
  132. 5350 gosub 9200
  133. 5400 rem
  134. 5410 poke 2,7  :rem effekt 7  einblend.
  135. 5420 poke 3,20 :rem effekt 20 ausblend.
  136. 5430 poke 4,5  :rem speed 5
  137. 5440 poke 5,7  :rem gelb
  138. 5460 poke 6,1  :rem sound fx an
  139. 5470 sys 34580 :rem aufruf (einblend.)
  140. 5480 gosub 9200:rem warteschleife
  141. 5490 poke 4,4  :rem speed 4
  142. 5500 poke 5,6  :rem blau
  143. 5510 sys 34580 :rem aufruf (ausblend.)
  144. 5520 gosub 9200
  145. 5999 return
  146. 8999 :
  147. 9000 rem alle effekte (0-26) werden
  148. 9010 rem nacheinander aufgerufen
  149. 9015 :
  150. 9020 for ef=0 to 26
  151. 9030 poke 4,1   :rem speed 1.
  152. 9040 poke 5,255 :rem originalfarbe.
  153. 9050 poke 6,0   :rem sound aus.
  154. 9060 poke 2,ef  :rem einblendeffekt=
  155. 9070 poke 3,ef  :rem =ausblendeffekt.
  156. 9080 :
  157. 9090 sys 34580  :rem effekt aufrufen.
  158. 9100 gosub 9200 :rem warteschleife.
  159. 9110 sys 34580  :rem effekt aufrufen.
  160. 9115 print "[196]ies war [197]ffekt [206]r.";ef
  161. 9120 gosub 9200 :rem warteschleife.
  162. 9125 gosub 9200
  163. 9127 print"[147]"
  164. 9130 next ef
  165. 9140 return
  166. 9199 :
  167. 9200 rem warteschleife (zwischen den
  168. 9210 rem                effekten    ):
  169. 9220 :
  170. 9230 for w=0 to500:next
  171. 9240 return
  172. 9300 rem alle effekte (0-26) werden
  173. 9310 rem nacheinander aufgerufen
  174. 9320 rem diesmal mit sound an !!!
  175. 9330 for ef=0 to 26
  176. 9340 poke 4,3   :rem speed 3.
  177. 9350 poke 5,14  :rem hellblau.
  178. 9360 poke 6,1   :rem sound an.
  179. 9370 poke 2,ef  :rem einblendeffekt=
  180. 9380 poke 3,ef  :rem =ausblendeffekt.
  181. 9390 :
  182. 9400 sys 34580  :rem effekt aufrufen.
  183. 9410 gosub 9200 :rem warteschleife.
  184. 9412 poke 4,0   :rem speed 0.
  185. 9415 poke 5,6   :rem normalblau.
  186. 9420 sys 34580  :rem effekt aufrufen.
  187. 9430 print "[196]ies war [197]ffekt [206]r.";ef;" mit [211]ound [198][216]"
  188. 9440 gosub 9200 :rem warteschleife.
  189. 9460 next ef
  190. 9470 return
  191. 9500 rem ende des demos (text)
  192. 9510 print"[144][147][212]ja, das war's fuer heute ...
  193. 9520 [153]"(NULL)enn (NULL)ie sich jetzt einmal die
  194. 9530 print"genaue [193]nwendung von [198].[195]. 2
  195. 9540 [153]"ansehen wollen, brauchen (NULL)ie nur
  196. 9550 print"[204][201][211][212] eingeben. [196]ieses [196]emoprogramm
  197. 9560 [153]"ist selbstverstaendlich nicht
  198. 9570 print"list-geschuetzt.
  199. 9580 [153]"(len)opyright 1994 by (NULL)ascha (NULL)eichert.
  200. 9590 return
  201. 9900 rem auf tastendruck warten:
  202. 9910 print"[194]itte eine [212]aste druecken !!!"
  203. 9940 get t$ : if t$ = "" then 9940
  204. 9950 return
  205.